home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 090 / rpc161a1.arc / RPC-SUB1.BAS < prev    next >
BASIC Source File  |  1988-04-13  |  7KB  |  195 lines
  1. ******************************************************************************
  2. ************************   RBBS-PC Protocol Controller   *** RPC-SUB1.BAS ****
  3. ************************      Merge for RBBS-PC.BAS      *********************
  4. ************************         By John Morris          ******* 16-1A *******
  5. ******************************************************************************
  6. 117 IF SUBROUTINE.PARAMETER <> -62 THEN _
  7.        IF PREV.READ$ = CONFIG.FILE$ THEN _
  8.           EXIT SUB _
  9.        ELSE PREV.READ$ = CONFIG.FILE$
  10.     CLOSE 2
  11.     BULLETIN.SAVE$ = BULLETIN.MENU$
  12.     OPEN "I",2,CONFIG.FILE$
  13.     CURRENT.DEF$ = CONFIG.FILE$
  14.     INPUT #2,DOWNLOAD.DRIVES$, _
  15.              SYSOP.PASSWORD.1$, _
  16.              SYSOP.PASSWORD.2$, _
  17.              SYSOP.FIRST.NAME$, _
  18.              SYSOP.LAST.NAME$, _
  19.              REQUIRED.RINGS, _
  20.              START.OFFICE.HOURS, _
  21.              END.OFFICE.HOURS, _
  22.              MINUTES.PER.SESSION!, _
  23.              DF, _
  24.              DF, _
  25.              UPLOAD.DIRECTORY$, _
  26.              EXPERT.USER, _
  27.              ACTIVE.BULLETINS, _
  28.              PROMPT.BELL, _
  29.              DF, _
  30.              MENUS.CAN.PAUSE, _
  31.              MENU$(1), _
  32.              MENU$(2), _
  33.              MENU$(3), _
  34.              MENU$(4), _
  35.              MENU$(5), _
  36.              MENU$(6), _
  37.              CONFERENCE.MENU$, _
  38.              DF, _
  39.              WELCOME.INTERRUPTABLE, _
  40.              REMIND.FILE.TRANSFERS, _
  41.              PAGE.LENGTH, _
  42.              MAX.MESSAGE.LINES, _
  43.              DOORS.AVAILABLE, _
  44.              DF$
  45.     IF CONFERENCE.MODE THEN _
  46.        INPUT #2,DF$,_
  47.                 DF$_
  48.     ELSE INPUT #2,MAIN.MESSAGE.FILE$, _
  49.                   MAIN.MESSAGE.BACKUP$
  50.     INPUT #2, CALLERS.FILE$, _
  51.               COMMENTS.FILE$, _
  52.               MAIN.USER.FILE$, _
  53.               WELCOME.FILE$, _
  54.               NEWUSER.FILE$, _
  55.               MAIN.DIRECTORY.EXTENTION$
  56.     IF CONFERENCE.MODE THEN _
  57.        INPUT #2, DF$ _
  58.     ELSE INPUT #2, COM.PORT$
  59.     INPUT #2, BULLETINS.OPTIONAL, _
  60.               MODEM.INIT.COMMAND$, _
  61.               RTS$, _
  62.               DF, _
  63.               FG, _
  64.               BG, _
  65. * ------[ first line different ]------
  66.               BORDER
  67.     IF CONFERENCE.MODE THEN _   'RENO MOD
  68.        INPUT #2, DF$, _
  69.                  DF$ _
  70.     ELSE INPUT #2, RBBS.BAT$, _
  71.                    RCTTY.BAT$
  72.     DOS.VERSION = 2
  73.     INPUT #2,OMIT.MAIN.DIRECTORY$, _
  74.              FIRST.NAME.PROMPT$, _
  75.              HELP$(3), _
  76.              HELP$(4), _
  77.              HELP$(7), _
  78.              HELP$(9), _
  79.              BULLETIN.MENU$, _
  80.              BULLETIN.PREFIX$, _
  81.              DF$, _
  82.              MESSAGE.REMINDER, _
  83.              REQUIRE.NON.ASCII, _
  84.              DOORS.SECURITY.LEVEL, _
  85.              MAXIMUM.NUMBER.OF.NODES, _
  86.              NETWORK.TYPE, _
  87.              RECYCLE.TO.DOS, _
  88.              DF, _
  89.              DF, _
  90.              TRASHCAN.FILE$
  91.     INPUT #2,MINIMUM.LOGON.SECURITY, _
  92.              DEFAULT.SECURITY.LEVEL, _
  93.              SYSOP.SECURITY.LEVEL, _
  94.              FILESEC.FILE$, _
  95.              SYSOP.MENU.SECURITY.LEVEL, _
  96.              LOCAL.PASSWORD$, _
  97.              MAXIMUM.VIOLATIONS, _
  98.              OPT.SEC(50), _   ' SECURITY FOR SYSOP COMMANDS 1
  99.              OPT.SEC(51), _
  100.              OPT.SEC(52), _
  101.              OPT.SEC(53), _
  102.              OPT.SEC(54), _
  103.              OPT.SEC(55), _
  104.              OPT.SEC(56), _   ' SYSOP 7
  105.              PASSWORDS.FILE$, _
  106.              MAXIMUM.PASSWORD.CHANGES, _
  107.              MINIMUM.SECURITY.FOR.TEMP.PASSWORD, _
  108.              OVERWRITE.SECURITY.LEVEL, _
  109.              DOORS.TERMINAL.TYPE, _
  110.              MAX.PER.DAY
  111.     INPUT #2,OPT.SEC(1), _   ' SECURITY FOR MAIN MENU COMMANDS 1
  112.              OPT.SEC(2), _
  113.              OPT.SEC(3), _
  114.              OPT.SEC(4), _
  115.              OPT.SEC(5), _
  116.              OPT.SEC(6), _
  117.              OPT.SEC(7), _
  118.              OPT.SEC(8), _
  119.              OPT.SEC(9), _
  120.              OPT.SEC(10), _
  121.              OPT.SEC(11), _
  122.              OPT.SEC(12), _
  123.              OPT.SEC(13), _
  124.              OPT.SEC(14), _
  125.              OPT.SEC(15), _
  126.              OPT.SEC(16), _
  127.              OPT.SEC(17), _
  128.              OPT.SEC(18), _   ' MAIN COMMAND 18
  129.              MIN.NEWCALLER.BAUD, _
  130.              WAIT.BEFORE.DISCONNECT
  131.     INPUT #2,OPT.SEC(19), _      ' Security for FILE COMMANDS 1
  132.              OPT.SEC(20), _
  133.              OPT.SEC(21), _
  134.              OPT.SEC(22), _
  135.              OPT.SEC(23), _
  136.              OPT.SEC(24), _
  137.              OPT.SEC(25), _
  138.              OPT.SEC(26), _      ' FILE COMMAND 8
  139.              OPT.SEC(27), _      ' SECURITY FOR UTILITY COMMANDS 1
  140.              OPT.SEC(28), _
  141.              OPT.SEC(29), _
  142.              OPT.SEC(30), _
  143.              OPT.SEC(31), _
  144.              OPT.SEC(32), _
  145.              OPT.SEC(33), _
  146.              OPT.SEC(34), _
  147.              OPT.SEC(35), _
  148.              OPT.SEC(36), _
  149.              OPT.SEC(37), _
  150.              OPT.SEC(38), _   ' UTIL COMMAND 12
  151.              OPT.SEC(46), _   ' SECURITY FOR GLOBAL COMMANDS 1
  152.              OPT.SEC(47), _
  153.              OPT.SEC(48), _
  154.              OPT.SEC(49), _   ' GLOBAL 4
  155.              UPLOAD.TIME.FACTOR!, _
  156.              COMPUTER.TYPE, _
  157.              REMIND.PROFILE, _
  158.              RBBS.NAME$, _
  159.              COMMANDS.BETWEEN.RINGS, _
  160.              MNP.SUPPORT, _
  161.              PAGING.PRINTER.SUPPORT$, _
  162.              MODEM.INIT.BAUD$
  163.              IF EC > 0 THEN _
  164.                 EXIT SUB
  165. * REPLACING old line(s) by new
  166. 200 IF RTS$ = "YES" THEN _
  167.        FLOW.CONTROL = TRUE : _
  168.        X$ = ",CS,CD,DS" _
  169.     ELSE X$ = ",RS,CD,DS"
  170. * ------[ first line different ]------
  171.     CLOSE 3
  172.     OPEN COM.PORT$ + ":" + BAUD.RATE$ + PARITY$ + X$ AS #3
  173. '
  174. ' *****************************************************************************
  175. ' *  RAISE THE RTS SIGNAL IF THE MODEM USES RTS FOR MODEM FLOW CONTROL (ONCE  *
  176. ' *  IT IS RAISED, IT WILL STAY UP UNTIL THE REGISTER IS CLEARED OUT).        *
  177. ' *****************************************************************************
  178. '
  179.     END SUB
  180. ' $SUBTITLE: 'GETCOM -- subroutine reads a char. from  comm. port'
  181. ' $PAGE
  182. '
  183. '  SUBROUTINE NAME    -- GETCOM
  184. '
  185. '  INPUT PARAMETERS   --   PARAMETER     MEANING
  186. '                          STNG$       STRING TO READ A CHARACTER INTO FROM
  187. '                                      THE COMMUNICATIONS PORT (FILE #3)
  188. '
  189. '  OUTPUT PARAMETERS  --   STNG$
  190. '
  191. '  SUBROUTINE PURPOSE -- READS A CHARACTER FROM FROM THE COMMUNICATIONS PORT.
  192. '
  193.       SUB GETCOM (STRNG$) STATIC
  194.       ON ERROR GOTO 65000
  195.